#!/usr/bin/env perl

#双引号会正常变量替换
$a = 10;
$var =<<"EOF";
这是一个Here文档；
在这里会原样输出。
“知道了吗？”
a=$a
EOF
print "$var\n"
